Windows Game Programming for Dummies (2nd Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectPlay / VoiceGroup / frmVoiceSettings.frm (.txt) < prev next >

Wrap

Visual Basic Form | 2001-10-08 | 17.5 KB | 491 lines

VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form frmVoiceSettings BorderStyle = 3 'Fixed Dialog Caption = "Direct Play Voice Settings" ClientHeight = 5010 ClientLeft = 45 ClientTop = 330 ClientWidth = 5835 Icon = "frmVoiceSettings.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5010 ScaleWidth = 5835 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdOk Caption = "OK" Default = -1 'True Height = 375 Left = 4545 TabIndex = 36 Top = 4545 Width = 1215 End Begin VB.CommandButton cmdCancel Cancel = -1 'True Caption = "Cancel" Height = 375 Left = 3255 TabIndex = 35 Top = 4545 Width = 1215 End Begin VB.Frame fraServer Caption = "Server Options (set only when creating a new session) " Height = 1020 Left = 60 TabIndex = 1 Top = 3420 Width = 5700 Begin VB.Frame fraCompression Caption = " Compression Codec " Height = 660 Left = 120 TabIndex = 33 Top = 240 Width = 5475 Begin VB.ComboBox cboCompressionTypes Height = 315 Left = 135 Style = 2 'Dropdown List TabIndex = 34 Top = 255 Width = 5220 End End End Begin VB.Frame Frame1 Caption = "Client Options (may be adjusted at any time) " Height = 3195 Left = 60 TabIndex = 0 Top = 60 Width = 5715 Begin VB.Frame Frame3 Caption = " Aggressiveness " Height = 1335 Index = 4 Left = 3000 TabIndex = 27 Top = 1740 Width = 1755 Begin VB.OptionButton optAggressivenessSet Caption = "Set" Height = 255 Left = 1020 TabIndex = 29 Top = 300 Width = 675 End Begin VB.OptionButton optAgressivenessDefault Caption = "Default" Height = 195 Left = 60 TabIndex = 28 Top = 300 Value = -1 'True Width = 855 End Begin MSComctlLib.Slider sldAggressiveness Height = 195 Left = 60 TabIndex = 30 Top = 780 Width = 1635 _ExtentX = 2884 _ExtentY = 344 _Version = 393216 Min = 1 Max = 100 SelStart = 1 TickFrequency = 10 Value = 1 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Max" Height = 195 Index = 9 Left = 1320 TabIndex = 32 Top = 1080 Width = 315 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Min" Height = 195 Index = 8 Left = 60 TabIndex = 31 Top = 1080 Width = 315 End End Begin VB.Frame Frame3 Caption = " Quality " Height = 1335 Index = 3 Left = 1020 TabIndex = 21 Top = 1740 Width = 1755 Begin VB.OptionButton optQualityDefault Caption = "Default" Height = 195 Left = 60 TabIndex = 24 Top = 300 Value = -1 'True Width = 855 End Begin VB.OptionButton OptQualitySet Caption = "Set" Height = 255 Left = 1020 TabIndex = 23 Top = 300 Width = 675 End Begin MSComctlLib.Slider sldQuality Height = 195 Left = 60 TabIndex = 22 Top = 780 Width = 1635 _ExtentX = 2884 _ExtentY = 344 _Version = 393216 Min = 1 Max = 100 SelStart = 1 TickFrequency = 10 Value = 1 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Min" Height = 195 Index = 7 Left = 60 TabIndex = 26 Top = 1080 Width = 315 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Max" Height = 195 Index = 6 Left = 1320 TabIndex = 25 Top = 1080 Width = 315 End End Begin VB.Frame Frame3 Caption = "Threshold" Height = 1335 Index = 2 Left = 3840 TabIndex = 14 Top = 300 Width = 1755 Begin VB.OptionButton optSensitivityDefault Caption = "Default" Height = 255 Left = 840 TabIndex = 17 Top = 300 Width = 855 End Begin VB.OptionButton optnSensitivityAuto Caption = "Auto" Height = 195 Left = 60 TabIndex = 16 Top = 300 Value = -1 'True Width = 735 End Begin VB.OptionButton optSensitivitySet Caption = "Set" Height = 255 Left = 420 TabIndex = 15 Top = 540 Width = 855 End Begin MSComctlLib.Slider sldSensitivity Height = 195 Left = 60 TabIndex = 18 Top = 780 Width = 1635 _ExtentX = 2884 _ExtentY = 344 _Version = 393216 Max = 99 TickFrequency = 10 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Max" Height = 195 Index = 5 Left = 1320 TabIndex = 20 Top = 1080 Width = 315 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Min" Height = 195 Index = 4 Left = 60 TabIndex = 19 Top = 1080 Width = 315 End End Begin VB.Frame Frame3 Caption = " Record Volume " Height = 1335 Index = 1 Left = 1980 TabIndex = 7 Top = 300 Width = 1755 Begin VB.OptionButton optRecordSet Caption = "Set" Height = 255 Left = 420 TabIndex = 13 Top = 540 Width = 855 End Begin VB.OptionButton optRecordAuto Caption = "Auto" Height = 195 Left = 60 TabIndex = 10 Top = 300 Value = -1 'True Width = 735 End Begin VB.OptionButton optRecordDefault Caption = "Default" Height = 255 Left = 840 TabIndex = 9 Top = 300 Width = 855 End Begin MSComctlLib.Slider sldRecord Height = 195 Left = 60 TabIndex = 8 Top = 780 Width = 1635 _ExtentX = 2884 _ExtentY = 344 _Version = 393216 LargeChange = 500 SmallChange = 100 Min = -10000 Max = 0 TickFrequency = 1000 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Min" Height = 195 Index = 3 Left = 60 TabIndex = 12 Top = 1080 Width = 315 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Max" Height = 195 Index = 2 Left = 1320 TabIndex = 11 Top = 1080 Width = 315 End End Begin VB.Frame Frame3 Caption = " Playback Volume " Height = 1335 Index = 0 Left = 120 TabIndex = 2 Top = 300 Width = 1755 Begin VB.OptionButton optVolumeSet Caption = "Set" Height = 255 Left = 1020 TabIndex = 4 Top = 300 Width = 675 End Begin VB.OptionButton optVolumeDefault Caption = "Default" Height = 195 Left = 60 TabIndex = 3 Top = 300 Value = -1 'True Width = 855 End Begin MSComctlLib.Slider sldVolume Height = 195 Left = 60 TabIndex = 37 Top = 780 Width = 1635 _ExtentX = 2884 _ExtentY = 344 _Version = 393216 LargeChange = 500 SmallChange = 100 Min = -10000 Max = 0 TickFrequency = 1000 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Max" Height = 195 Index = 1 Left = 1320 TabIndex = 6 Top = 1080 Width = 315 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "Min" Height = 195 Index = 0 Left = 60 TabIndex = 5 Top = 1080 Width = 315 End End End Attribute VB_Name = "frmVoiceSettings" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Option Compare Text ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved. ' File: frmVoiceSettings.frm ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub cmdCancel_Click() fGotSettings = False Unload Me End Sub Private Sub cmdOk_Click() fGotSettings = True 'Setup up the clients stuff If optAgressivenessDefault.Value Then oClient.lBufferAggressiveness = DVBUFFERAGGRESSIVENESS_DEFAULT oSession.lBufferAggressiveness = DVBUFFERAGGRESSIVENESS_DEFAULT Else oClient.lBufferAggressiveness = sldAggressiveness.Value oSession.lBufferAggressiveness = sldAggressiveness.Value End If If optQualityDefault Then oClient.lBufferQuality = DVBUFFERQUALITY_DEFAULT oSession.lBufferQuality = DVBUFFERQUALITY_DEFAULT Else oClient.lBufferQuality = sldQuality.Value oSession.lBufferQuality = sldQuality.Value End If If optnSensitivityAuto.Value Then oClient.lThreshold = DVTHRESHOLD_UNUSED ElseIf optSensitivitySet Then oClient.lThreshold = sldSensitivity.Value oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_MANUALVOICEACTIVATED ElseIf optSensitivityDefault.Value Then oClient.lThreshold = DVTHRESHOLD_DEFAULT oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_MANUALVOICEACTIVATED End If If optRecordAuto.Value Then oClient.lFlags = oClient.lFlags Or DVCLIENTCONFIG_AUTOVOICEACTIVATED ElseIf optRecordDefault.Value Then oClient.lRecordVolume = 0 ElseIf optRecordSet.Value Then oClient.lRecordVolume = sldRecord.Value End If If optVolumeDefault Then oClient.lPlaybackVolume = DVPLAYBACKVOLUME_DEFAULT ElseIf optVolumeSet Then oClient.lPlaybackVolume = sldVolume.Value End If oClient.lNotifyPeriod = 0 'Now set up the server stuff oSession.lSessionType = DVSESSIONTYPE_PEER Dim oData As DVCOMPRESSIONINFO dvServer.GetCompressionType cboCompressionTypes.ListIndex + 1, oData, 0 oSession.guidCT = oData.guidType Unload Me End Sub Public Sub ClientOnly() fraServer.Enabled = False fraCompression.Enabled = False End Sub Private Sub Form_Load() Dim lIndex As Long 'Set up the defaults sldAggressiveness.Min = DVBUFFERAGGRESSIVENESS_MIN sldAggressiveness.Max = DVBUFFERAGGRESSIVENESS_MAX sldAggressiveness.LargeChange = (DVBUFFERAGGRESSIVENESS_MAX - DVBUFFERAGGRESSIVENESS_MIN) \ 10 sldAggressiveness.TickFrequency = sldAggressiveness.LargeChange sldQuality.Min = DVBUFFERQUALITY_MIN sldQuality.Max = DVBUFFERQUALITY_MAX sldQuality.LargeChange = (DVBUFFERQUALITY_MAX - DVBUFFERQUALITY_MIN) \ 10 sldQuality.TickFrequency = sldQuality.LargeChange sldSensitivity.Min = DVTHRESHOLD_MIN sldSensitivity.Max = DVTHRESHOLD_MAX sldSensitivity.LargeChange = (DVTHRESHOLD_MAX - DVTHRESHOLD_MIN) \ 10 sldSensitivity.TickFrequency = sldSensitivity.LargeChange Dim lCount As Long, oData As DVCOMPRESSIONINFO If (dvServer Is Nothing) Then Set dvServer = dx.DirectPlayVoiceServerCreate For lCount = 1 To dvServer.GetCompressionTypeCount dvServer.GetCompressionType lCount, oData, 0 cboCompressionTypes.AddItem oData.strName If InStr(oData.strName, "sc03") Then lIndex = lCount - 1 End If Next cboCompressionTypes.ListIndex = lIndex End Sub Private Sub optRecordAuto_Click() If optRecordAuto.Value Then If optSensitivityDefault.Value Then optnSensitivityAuto.Value = True End If End Sub Private Sub optSensitivityDefault_Click() If optSensitivityDefault.Value Then If optRecordAuto.Value Then optRecordSet.Value = True End If End Sub Private Sub optSensitivitySet_Click() If optSensitivitySet.Value = True Then optRecordDefault.Value = True End If End Sub